COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	 functions for grading cs206
C00007 ENDMK
C⊗;
;;; functions for grading cs206

(setq base (setq ibase 10.))

(defun grade (u) (plus (times (nth 1 u) 2)
		       (times (nth 2 u) 1.5)
		       (times (nth 3 u) 1)
		       (times (nth 4 u) 2)
		       (times (nth 5 u) 2.8)
		       (times (nth 6 u) 1)))

(setq scores '(
(akeley 20 59 89 70 140 75)
(anderson 20 53 92 95 118 45)
(andersonr 20 54 95 93 122 110)
(barkhordarian 20 54 0 71 125 75)
(bion 20 59 90 64 0 0)
(buckley 20 55 88 93 144 110)
(cha 15 47 0 68 0 0)
(chu 16.5 54 90 78 99 85)
(coin 20 59 80 90 71 110)
(edison 17.5 44 90 73 102 35)
(epstein 20 58 85 72 123 85)
(erickson 20 57 96 97 124 40)
(erskine 18 59 48 55 0 0)
(foyster 20 28 84 76 129 65)
(gonsalves 20 58 95 75 128 45)
(gopinath 20 41 90 90 125 110)
(haken 16.5 54 98 75 107 90)
(kaelbling 18.5 59 60 74 83 0)
(kanefsky 15 50 0 66 77 80)
(kastoria 20 54 0 80 116 40)
(kegelmeyer 20 59 84 88 121 110)
(kurosu 18.5 20 0 70 58 0)
(leung 20 53 80 81 105 75)
(levy 20 0 50 83 46 50)
(lounamaa 16 56 85 84 107 85)
(moses 0 0 96 65 152 0)
(mccarthy 20 59 25 71 46 0)
(mcdonald 20 59 100 90 140 0)
(nielsen 20 40 0 62 68 75)
(shore 20 51 0 90 102 0)
(sikorski 20 54 90 55 107 40)
(slocum 15 59 0 90 132 35)
(stobie 16 59 92 71 130 100)
(strawn 17 59 82 55 103 90)
(vandervelde 20 50 90 90 127 110)
(vistnes 20 58 90 75 155 55)
(weintraub 20 54 94 58 134 80)
(wolfe 0 33 0 52 121 70)
))

(setq summary (mapcar (function (lambda (u) (list (car u) (grade u)))) scores))
((AKELEY 824.5) (ANDERSON 776.9) (ANDERSONR 853.600006) (BARKHORDARIAN
688.0) (BION 346.5) (BUCKLEY 909.700005) (CHA 236.5) (CHU 722.200005)
(COIN 697.3) (EDISON 657.600006) (EPSTEIN 785.4) (ERICKSON 802.700005)
(ERSKINE 282.5) (FOYSTER 744.200005) (GONSALVES 775.4) (GOPINATH 831.5)
(HAKEN 751.600006) (KAELBLING 565.9) (KANEFSKY 532.600006) (KASTORIA
645.8) (KEGELMEYER 837.3) (KUROSU 369.4) (LEUNG 730.5) (LEVY 434.800003)
(LOUNAMAA 753.600006) (MOSES 651.600006) (MCCARTHY 424.300003) (MCDONALD
800.5) (NIELSEN 489.4) (SHORE 582.100006) (SIKORSKI 660.600006) (SLOCUM
703.100006) (STOBIE 818.5) (STRAWN 692.9) (VANDERVELDE 850.600006)
(VISTNES 856.0) (WEINTRAUB 786.200005) (WOLFE 562.3))

(prog2 (mapcar (function (lambda (u) (print u))) summary) nil)

(AKELEY 824.5) 

(ANDERSON 776.9) 

(ANDERSONR 853.600006) 

(BARKHORDARIAN 688.0) 

(BION 346.5) 

(BUCKLEY 909.700005) 

(CHA 236.5) 

(CHU 722.200005) 

(COIN 697.3) 

(EDISON 657.600006) 

(EPSTEIN 785.4) 

(ERICKSON 802.700005) 

(ERSKINE 282.5) 

(FOYSTER 744.200005) 

(GONSALVES 775.4) 

(GOPINATH 831.5) 

(HAKEN 751.600006) 

(KAELBLING 565.9) 

(KANEFSKY 532.600006) 

(KASTORIA 645.8) 

(KEGELMEYER 837.3) 

(KUROSU 369.4) 

(LEUNG 730.5) 

(LEVY 434.800003) 

(LOUNAMAA 753.600006) 

(MOSES 651.600006) 

(MCCARTHY 424.300003) 

(MCDONALD 800.5) 

(NIELSEN 489.4) 

(SHORE 582.100006) 

(SIKORSKI 660.600006) 

(SLOCUM 703.100006) 

(STOBIE 818.5) 

(STRAWN 692.9) 

(VANDERVELDE 850.600006) 

(VISTNES 856.0) 

(WEINTRAUB 786.200005) 

(WOLFE 562.3) 

NIL